Aminet 34/Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso/Aminet/comm/irc/cybershiela.lha/cs/cs_howshould.amirx

Text File | 1999-09-26 | 2KB | 45 lines

/* CyberShiela MultiResponse File */
nick=getclip('NICK')
xx=random(1,31,time('s'))
select
when xx=1 then a="Very carefully."
when xx=2 then a="Alone."
when xx=3 then a="With a can opener"
when xx=4 then a="Using a pencil sharpener"
when xx=5 then a="As quickly as possible"
when xx=6 then a="Slowly and carefully."
when xx=7 then a="With a friend."
when xx=8 then a="With someone you love."
when xx=9 then a="Just don't do it."
when xx=10 then a="Just do it."
when xx=11 then a="Not alone."
when xx=12 then a="With help."
when xx=13 then a="With a screwdriver."
when xx=14 then a="With a spoon."
when xx=15 then a="With a fork."
when xx=16 then a="With a knive."
when xx=17 then a="Using a toaster."
when xx=18 then a="In the woods."
when xx=19 then a="Under the bed."
when xx=20 then a="In bed."
when xx=21 then a="In the kitchen."
when xx=22 then a="In the living room."
when xx=23 then a="In the back seat of the car."
when xx=24 then a="At McDonald's."
when xx=25 then a="I wouldn't know how to do that. I'm not the person you should be asking. :)"
when xx=26 then a="Don't ask me."
when xx=27 then a="Beats me."
when xx=28 then a="In plain view."
when xx=29 then a="Freely."
when xx=30 then a="With a large audience."
when xx=31 then a="With a small audience."
end
modif:
user=nick
old=a
m=length(user);temp=a;x=pos("$1",temp);if x~=0 then do;temp2 = delstr(temp,x,2);old = insert(user,temp2,x-1,m," ");end
temp=old;m=length(channam);x=pos("$chan",temp);if x~=0 then do;temp2 = delstr(temp,x,5);old = insert(channam,temp2,x-1,m," ");end
a=old
'say 'A
exit